Labels:text | screenshot | font OCR: on storeNew Alias ( # local f1 = "" f2 ="" if not file.getFileDialog ("File to create alias for?", @f1, 0) # return (false) f2 = file.fileFromPath (f1) if not dialog.ask ("Save in Apple Menu under what name?", @f2) return (false) file.new Alias (f1 , file.getSystemFolderPath () + " : Apple Menu Items:" + f2) speaker.beep ( dialog.notify ("Done!") @ return (true)
